home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Cube 4: Multimedia Applications
/
MacCube Volume 4: Multimedia Applications.iso
/
Let's Go! Graphics
/
Let's Go! Graphics
/
stack.txt
< prev
Wrap
Text File
|
1995-11-01
|
4KB
|
155 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=256, y1=221, x2=768, y2=563)
-- screen: Rect(x1=0, y1=0, x2=1024, y2=768)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2612
-- card count: 2
-- first card id: 2892
-- list block id: 4238
-- print block id: 0
-- font table block id: 3508
-- style table block id: 3169
-- free block count: 5
-- free size: 14624 bytes
-- total size: 32768 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x02208000
-- compacted by hypercard version: 0x02208000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDB60E01B
----- HyperTalk script -----
-- Start Color Tools
lock screen
lock messages
lock recent
push card
go to cd 1 of stack Home
if (there is a cd btn "Color Tools are ON") then
if (the visible of cd btn "Color Tools are ON") and (there is a stack "Color Tools") then
start using stack "Color Tools" -- ∆
send "AddColorInit" to stack "Color Tools"
end if
end if
pop card
unlock messages
send "reset menubar" to this card
unlock recent
unlock screen
-- End Color Tools
on openStack
AddColor install
-- doMenu andre
-- delete menu "Edit"
-- delete menu "Go"
-- delete menu "Tools"
-- delete menu "Objects"
-- delete menu "Font"
-- delete menu "Style"
-- delete menu "File"
-- create menu "File"
-- put "Quit" into menu "File" with menuMsg "domenu Quit HyperCard"
hide titleBar
pass openStack
end openStack
on openCard
Send colorMe to this card
pass openCard
end openCard
on closeCard
lock screen
pass closeCard
end closeCard
on colorMe
AddColor colorCard,stamp,30
end colorMe
on closeStack
AddColor remove
pass closeStack
end closeStack
-- Third party developer menu routines
-- simulates a message that the menubar has been reset
on reset command
if (command="menubar") then
if the short name of this stack is Home then
unlock messages
repeat with x = 0 to the number of lines in the stacksinuse
send "menuReset Home" to stack line x of the stacksinuse
end repeat
exit reset
end if
send "reset menubar" to Hypercard
send "menuReset" to this stack
else
pass reset
end if
end reset
on menuReset isHome
-- Trap menuReset after all the developers
-- are finished adding menus
if isHome = "Home" then
exit menuReset
end if
end menuReset